<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/conn.asp"-->
<%
Dim i,Rs,Sql,Table,Column,Bool,cmd,dt
Table = "usergeo"
	set cmd=server.CreateObject ("adodb.command")
	set cmd.ActiveConnection =conn
	sql="drop table "&Table
	cmd.CommandText =sql
	cmd.Execute

	sql="create table "&Table&"(usergeo_id autoincrement PRIMARY KEY,usergeo_user nvarchar(50),usergeo_lat Double,usergeo_lng Double,usergeo_inmeters Long,usergeo_timestamp Double,usergeo_reverse nvarchar(50),usergeo_update date default now())"
	response.write sql
	'response.end
	cmd.CommandText =sql
	cmd.Execute
%>